@NullResponse @CallReturn(CR\ReadyAcademy.txt) //Prep for academy
@NullResponse @Goto(Glitter1,Glitter2,Glitter3) //Choose which glitter to run academy
(Glitter1)
@NullResponse @AddContact1 @SetFlag(Glitter1Active)
@NullResponse @RemoveDomme @DeleteFlag(DommeActive) @Goto(Start)
(Glitter2)
@NullResponse @AddContact2 @SetFlag(Glitter2Active)
@NullResponse @RemoveDomme @DeleteFlag(DommeActive) @Goto(Start)
(Glitter3)
@NullResponse @AddContact3 @SetFlag(Glitter3Active)
@NullResponse @RemoveDomme @DeleteFlag(DommeActive) @Goto(Start)
(Start)
@NullResponse @CheckFlag(AcademyFirst) @SetFlag(AcademyFirst)
@NullResponse @CallReturn(CR\Academy\AcademyIntro.txt) //Run short intro
(AcademyFirst)
@Variable[AcademyScore]>[1000] @NullResponse @SetVar[AcademyScore]=[1000]
@Variable[AcademyScore]<[1] @NullResponse @SetVar[AcademyScore]=[1]
@NotFlag(HomeWorkSet) @NullResponse @Goto(SetDay)
@NullResponse @CallReturn(CR\Academy\AcademyHomeWorkCheck.txt)
(SetDay)
@NullResponse @SetVar[Classes]=[0] 
@Variable[AcademyScore]>[750] @NullResponse @ChangeVar[Classes]=[Classes]+[#Random(2,3)] @Goto(LingerieStart)
@Variable[AcademyScore]>[500] @NullResponse @ChangeVar[Classes]=[Classes]+[#Random(2,4)] @Goto(LingerieStart)
@Variable[AcademyScore]>[250] @NullResponse @ChangeVar[Classes]=[Classes]+[#Random(3,4)] @Goto(LingerieStart)
@NullResponse @ChangeVar[Classes]=[Classes]+[#Random(3,5)] @Goto(LingerieStart)
(LingerieStart)
@NullResponse @TempFlag(TodayLingerie)
@NullResponse @CallReturn(CR\Academy\Welcome\Lingerie\*.txt)
@NullResponse @Goto(Course)
(CleaningStart)
(Course)
@NullResponse @If[Classes]<=[0]Then(BehaviourCheck) 
@NullResponse @ChangeVar[Classes]=[Classes]-[1]
@NullResponse @CheckFlag(TodayLingerie)
@NullResponse @CheckFlag(TodayCleaning)
@NullResponse @CheckFlag(TodaySeduction)
@NullResponse @CheckFlag(TodayCooking)
(TodayLingerie)
@NullResponse @CallReturn(CR\Academy\Classes\Lingerie\*.txt)
@Variable[#Random(1,100)]>[90] @NullResponse @CallReturn(CR\Academy\FunLingerie.txt)
@NullResponse @Goto(Course)
(TodayCleaning)
@NullResponse @CallReturn(CR\Academy\Classes\Cleaning\*.txt)
@Variable[#Random(1,100)]>[90] @NullResponse @CallReturn(CR\Academy\FunCleaning.txt)
@NullResponse @Goto(Course)
(TodaySeduction)
@NullResponse @CallReturn(CR\Academy\Classes\Seduction\*.txt)
@Variable[#Random(1,100)]>[90] @NullResponse @CallReturn(CR\Academy\FunSeduction.txt)
@NullResponse @Goto(Course)
(TodayCooking)
@NullResponse @CallReturn(CR\Academy\Classes\Cooking\*.txt)
@Variable[#Random(1,100)]>[90] @NullResponse @CallReturn(CR\Academy\FunCooking.txt)
@NullResponse @Goto(Course)
(BehaviourCheck)
@Variable[AcademyScore]<[100] @NullResponse @If[AcademyWrong]>[10]Then(HeadMistress) @Goto(Detention)
@Variable[AcademyScore]>[800] @NullResponse @Chance05(TeachersLounge)
@NullResponse @Goto(End)
(HeadMistress)
@NullResponse @CallReturn(CR\Academy\AcademyHeadMistress.txt)
@NullResponse @Goto(End)
(TeachersLounge)
@NullResponse @CallReturn(CR\Academy\AcademyTeachersLounge.txt)
@NullResponse @Goto(End)
(Detention)
@NullResponse @CallReturn(CR\Academy\AcademyDetention.txt)
@NullResponse @Goto(End)
(End)
@NullResponse @Chance50(End2)
@NullResponse @CallReturn(CR\Academy\AcademyHomeWorkSet.txt)
(End2)
@NullResponse @CallReturn(CR\Academy\AcademyEnd.txt) \\Short farewell 